home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 2 Years
/
Tiger_Disk_2_Years_19xx_Tiger-Crew-Disk_de_Side_A.d64
/
elektr. tagebuch
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
28 lines
2 poke53280,0:poke53281,0:poke646,15:gosub40000
5 print"[147] [197]lektronisches [212]agebuch"
10 poke808,254:print" [205]enue:":input" 1=codieren, 2=decodieren";w
12 print" [194]itte [196]iskette einlegen!"
15 printtab(26)"tt.mm.jjjj[145][145]":input" [196]atum ";d$
18 print" [195]odezahlen x,y,z":input" durch [203]omma getrennt ";a,b,c
20 dimt(839),t$(839):x=0:ifw=2then70
25 print"[147] [212]exteingabe (max. 839 [218]eichen)":print" '*' = [197]nde":print">";
30 gett$(x):ift$(x)=""then30
35 ift$(x)="*"orx=839then50
40 printt$(x);:x=x+1:goto30
50 open1,8,2,d$+",s,w":print#1,x:fori=0tox-1:b=b+(a*c):print#1,asc(t$(i))+c+b
60 nexti:close1:goto99
70 print"[147]>";:open1,8,2,d$+",s,r":input#1,x:fori=0tox-1:b=b+(a*c):input#1,t(i)
80 t(i)=(t(i)-b)-c:ift(i)<0ort(i)>255thenclose1:print"[198]alsche [197]ingabe":goto99
90 printchr$(t(i));:nexti:close1
99 clr:poke808,237:end:rem -pts,1985-
40000 fori=0to63:reada:s=s+a:poke40704+i,a:nexti
40010 ifs<>6973thenprint"? fehler in datas":end
40020 print"datas ok":sys40704:return
40030 data169,255,141,6,212,141,24,212,169
40040 data9,141,5,212,169,103,141,1,212
40050 data169,33,141,0,212,120,169,38,141
40060 data20,3,169,159,141,21,3,133,56,88
40070 data96,72,165,203,201,64,208,9,169
40080 data0,141,4,212,104,76,49,234,169
40090 data17,141,4,212,76,50,159,0,0